home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v8n13.arc
/
CONVERT.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-06-10
|
5KB
|
74 lines
«RHA«VA$FI» p. «pn» of «fp»
»«PT3»«AL1»«LM0»«RM80»
100 REM - BASIC PROGRAM TO CREATE CONVERT.COM
110 CLS:PRINT "Creating CONVERT.COM ": OPEN "CONVERT.COM " AS #1 LEN = 1
120 FIELD #1, 1 AS A$: CHECKSUM#=0
130 FOR I = 1 TO 52
140 LINESUM#=0: LOCATE 2,3: PRINT "Countdown: " 52 - I ;
150 FOR J = 1 TO 16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
160 CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
170 IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
180 NEXT J
190 READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
200 IF LINECHECK# = LINESUM# THEN GOTO 220
210 LOCATE 4,2: PRINT "Error in line #" ; 260 + 10 * I: GOTO 260
220 NEXT I
230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
250 PRINT: PRINT "CONVERT.COM created successfully": SYSTEM
260 PRINT: PRINT "CONVERT.COM is not valid!": END
270 DATA E9, E, 1, D, 20, 20, 20, D, A, 43, 4F, 4E, 56, 45, 52, 54, 39D
280 DATA 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 341
290 DATA 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 642
300 DATA 73, 20, 43, 6F, 2E, D, A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 496
310 DATA 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 57C
320 DATA 4D, 65, 66, 66, 6F, 72, 64, D, A, A, 53, 79, 6E, 74, 61, 78, 56B
330 DATA 3A, 20, 20, 43, 4F, 4E, 56, 45, 52, 54, 20, 6E, 75, 6D, 62, 65, 4D2
340 DATA 72, 5B, 2D, 6E, 75, 6D, 62, 65, 72, 5D, 5B, 72, 61, 64, 69, 78, 653
350 DATA 5D, 20, 7C, 20, 22, 63, 68, 61, 72, 61, 63, 74, 65, 72, 28, 73, 583
360 DATA 29, 22, D, A, 72, 61, 64, 69, 78, 3A, 20, 20, 62, 20, 3D, 20, 3D3
370 DATA 62, 69, 6E, 61, 72, 79, 2C, 20, 68, 20, 3D, 20, 68, 65, 78, 61, 55C
380 DATA 64, 65, 63, 69, 6D, 61, 6C, 2C, 20, 6F, 20, 3D, 20, 6F, 63, 74, 54D
390 DATA 61, 6C, D, A, 64, 65, 66, 61, 75, 6C, 74, 20, 69, 73, 20, 64, 549
400 DATA 65, 63, 69, 6D, 61, 6C, A, 24, 1A, 49, 6E, 76, 61, 6C, 69, 64, 57A
410 DATA 20, 70, 61, 72, 61, 6D, 65, 74, 65, 72, D, A, 6E, 75, 6D, 62, 5AA
420 DATA 65, 72, 20, 72, 61, 6E, 67, 65, 3A, 20, 30, 20, 2D, 20, 36, 35, 466
430 DATA 35, 33, 35, D, A, 24, 48, 4F, 42, FB, 2, 2A, 3, 50, 3, 17, 345
440 DATA 3, FC, 80, 3E, 80, 0, 0, 75, 3, E9, 89, 0, B2, A, E8, 0, 5CB
450 DATA 2, BE, 82, 0, 8B, EE, AC, 3C, D, 74, 35, 3C, 22, 74, 12, 3C, 579
460 DATA 2D, 75, F3, 81, FD, 82, 0, 75, 27, 56, E8, 74, 0, 5E, 53, EB, 77F
470 DATA E3, 33, DB, AC, 3C, D, 74, 5D, 8A, D8, AC, 3C, D, 74, D, 3C, 6CB
480 DATA 22, 75, 5, 80, 3C, 22, 75, 4, 8A, F8, 86, FB, 33, C9, EB, 14, 6F1
490 DATA E8, 4E, 0, 33, C9, 81, FD, 82, 0, 74, 9, 59, 3B, CB, 77, 2, 687
500 DATA 87, D9, 2B, CB, 41, 8B, FB, 51, E8, F1, 0, E8, B0, 1, E8, E, 8D6
510 DATA 1, E8, A7, 1, E8, 2C, 1, E8, A1, 1, E8, 4B, 1, E8, 9B, 1, 6E8
520 DATA E8, 6A, 1, B2, D, E8, 89, 1, B2, A, E8, 84, 1, 47, 59, E2, 72F
530 DATA D6, 32, C0, EB, 8, BA, 3, 1, E8, 7B, 1, B0, 1, B4, 4C, CD, 75B
540 DATA 21, 4E, 8B, CE, 8B, F5, 3B, F1, 74, F, AC, 3C, 61, 72, F7, 3C, 7E5
550 DATA 7A, 77, F3, 80, 64, FF, 5F, EB, ED, 8B, F5, 2B, CD, 51, 87, CB, A19
560 DATA AC, B9, 3, 0, BF, 6, 2, F2, AE, 74, 7, 87, CB, E2, EF, B9, 826
570 DATA 3, 0, D1, E1, BF, F, 2, 2B, F9, 59, 8B, F5, 33, DB, FF, 15, 7A4
580 DATA BA, D9, 1, 73, 5, E8, 2E, 1, EB, AB, C3, AC, 2C, 30, 72, 13, 709
590 DATA 3C, 9, 77, F, 98, 93, 51, B9, A, 0, F7, E1, 59, 72, 7, 3, 5B7
600 DATA D8, 72, 3, E2, E6, F8, C3, AC, 2C, 30, 72, A, 3C, 1, 77, 6, 70E
610 DATA D1, E3, 72, 5, A, D8, E2, EF, F8, C3, AC, 2C, 30, 72, 1D, 3C, 86C
620 DATA 9, 7E, A, 2C, 7, 3C, A, 72, 13, 3C, F, 77, F, F7, C3, 0, 41A
630 DATA F0, F9, 75, B, 51, B1, 4, D3, E3, 59, A, D8, E2, DC, F8, C3, 9D9
640 DATA AC, 2C, 30, 72, 13, 3C, 7, 77, F, F7, C3, 0, E0, F9, 75, B, 669
650 DATA 51, B1, 3, D3, E3, 59, A, D8, E2, E6, F8, C3, 8B, C7, BB, A, 990
660 DATA 0, 33, C9, 33, D2, F7, F3, 80, C2, 30, 52, 41, 3D, 0, 0, 75, 6A2
670 DATA F2, 8B, D9, 5A, E8, 9A, 0, E2, FA, B9, A, 0, 2B, CB, C3, 8B, 915
680 DATA DF, B9, 4, 4, D3, C3, 8A, D3, 80, E2, F, 80, C2, 30, 80, FA, 8F0
690 DATA 39, 7E, 3, 80, C2, 7, E8, 78, 0, FE, CD, 75, E7, B2, 68, E8, 88C
700 DATA 6F, 0, C3, 8B, DF, B9, 3, 6, D1, C3, 8A, D3, 80, E2, 1, EB, 89D
710 DATA 7, D3, C3, 8A, D3, 80, E2, 7, 80, C2, 30, E8, 53, 0, FE, CD, 8DB
720 DATA 75, EF, B2, 6F, E8, 4A, 0, C3, 8B, DF, B5, 10, D1, C3, 8A, D3, 99A
730 DATA 80, E2, 1, 80, C2, 30, E8, 38, 0, 80, FD, 9, 75, 5, B2, 20, 6C7
740 DATA E8, 2E, 0, FE, CD, 75, E5, B2, 62, E8, 25, 0, C3, 32, FF, B8, 908
750 DATA 22, E, CD, 10, B9, 3, 0, B8, 22, A, CD, 10, B9, 2, 0, 8B, 4D0
760 DATA C7, B4, A, CD, 10, B9, 1, 0, 8B, C7, 86, C4, B4, A, CD, 10, 753
770 DATA C3, B4, 2, CD, 21, C3, B4, 9, CD, 21, C3, B9, 5, 0, B2, 20, 728
780 DATA E8, EE, FF, E2, F9, C3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 573
790 DATA 88551